home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / save'obj.proc < prev    next >
Text File  |  2007-02-28  |  333b  |  11 lines
  1. 9000 //
  2. 9010 PROC SAVE'OBJ(NAME$,START'ADDR,END'ADDR) CLOSED
  3. 9020  OPEN FILE 78,NAME$+",P",WRITE
  4. 9030  PRINT FILE 78: CHR$(START'ADDR MOD 256),
  5. 9040  PRINT FILE 78: CHR$(START'ADDR DIV 256),
  6. 9050  FOR ADDR:=START'ADDR TO END'ADDR DO
  7. 9060   PRINT FILE 78: CHR$(PEEK(ADDR)),
  8. 9070  ENDFOR ADDR
  9. 9080  CLOSE FILE 78
  10. 9090 ENDPROC SAVE'OBJ
  11.